#!/usr/bin/perl
#modify_ip.cgi

require './network-lib.pl';
&ReadParse();
#&header($text{'bonding_config'}, "", "bondingcfg", 0, 1);
&check_ipaddress($in{'bond_ip'}) ||
	&error(&text('edit_eip', $in{'bond_ip'}));
`ifconfig bond0 $in{'bond_ip'} netmask $in{'bond_mask'}`; 
#print "$in{'bond_ip'}";
&redirect("conf_bond.cgi");
#&footer("index.cgi", $text{'interface_return'});
